home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / textengn.lha / Textengine / TEM / box.tes < prev    next >
Text File  |  1996-12-23  |  411b  |  29 lines
  1. /* $VER: box.tes 1.0 (7.10.96) */
  2.  
  3. /* start */
  4.  
  5. options results
  6. parse arg n x y
  7. signal on syntax
  8. myhost=n||" '"||x||"'"
  9. interpret myhost
  10.  
  11. /* main */
  12.  
  13. 'GOTO BYTE=1'
  14. 'REPLACE STRING="<BOX>" BY="<PREPROCESSEDbox>" NEXT WILD=FALSE'
  15. 'GOTO LINE 2 COLUMN 1'
  16. 'QUERY LEN VAR VARX'
  17. if VARX<45 then do
  18.  'TEXT T="<T>"'
  19.  'SMARTCR'
  20. end
  21.  
  22. /* end */
  23.  
  24. exit 0
  25.  
  26. syntax:
  27. say "Sorry, error line" SIGL ":" errortext(RC) ":-("
  28. exit 20
  29.